home *** CD-ROM | disk | FTP | other *** search
/ The PC-SIG Library 10 / The PC-Sig Library - Shareware for the IBM PC and Compatibles (PC-SIG)(Tenth Edition Disks 1-2804)(1991).iso / PC_SIGCD / 03 / 0 / DISK0300.ZIP / MENU.BAK < prev    next >
Text File  |  1985-03-04  |  1KB  |  73 lines
  1. *MENU.PRG
  2.  
  3. CLEAR
  4. SET COLOR TO 6/1,6/1,6
  5. CLEAR
  6. SET PRINT OFF
  7. SET SAFETY OFF
  8. SET TALK OFF
  9. ? '                     CUBSCOUT PACK 240 PERSONNEL SYSTEM'
  10. ?
  11. ? '                 Written in dBASE III by Donald E. Keller'
  12. ? '                             Copyright 1985'
  13. ? '                          All Rights Reserved'
  14. ?
  15. ?
  16. ?
  17. ? '         1. Add New CubScouts               6. Sterilize User'
  18. ?
  19. ? '         2. Add New Leaders                 7. Not Used          '
  20. ?
  21. ? '         3. Edit/Browse Leaders             8. Print Rosters     '
  22. ?
  23. ? '         4. Edit/Browse Cubs                9. Statistics        '
  24. ?
  25. ? '         5. Explode Computer                0. Exit to dBASE'
  26. ?
  27. WAIT '                    Pick a number ...' TO CHOICE
  28.  
  29. SET COLOR TO 7/0,0/7,0
  30. DO CASE CHOICE
  31.     CASE CHOICE = '1'
  32.         SELECT 1
  33.         SET FORMAT TO CUBS
  34.         APPEND
  35.         INDEX ON SCOUT TO CUBS
  36.  
  37.     CASE CHOICE = '2'
  38.         SELECT 2
  39.         SET FORMAT TO CUBLDR
  40.         APPEND
  41.         SET SAFETY OFF
  42.         INDEX ON SCOUT TO CUBLDR
  43.  
  44.     CASE CHOICE = '3'
  45.         SELECT 2
  46.         DO LOOKLDR
  47.  
  48.     CASE CHOICE = '4'
  49.         SELECT 1
  50.         DO SEARCH
  51.  
  52.     CASE CHOICE = '5'
  53.         DO BOMB
  54.  
  55.     CASE CHOICE = '6'
  56.         DO STERILE
  57.  
  58.     CASE CHOICE = '7'
  59.  
  60.     CASE CHOICE = '8'
  61.         DO ROSTERS
  62.  
  63.     CASE CHOICE = '9'
  64.         DO STATS
  65.  
  66.     CASE CHOICE = '0'
  67.     SET COLOR TO 7/0
  68.     CANCEL
  69. ENDCASE CHOICE
  70. ENDDO CHOICE
  71. RELEASE ALL
  72. CLEAR
  73.